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functie /symbool 


back-space 
TAB 

linefeed 

clear screen 
CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT 
space-bar 


pijltje rechts 
pijltje links 
pijltje boven 
pijltje onder , 
volle blok 
verticale lijn 
horizontale lijn 
6 hor. lijnen 
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NEWSLETTER 16 


Westmeerbeek, juni 1983 


Beste leden, 


Met Newletter 16 bieden we U weer ееп bonte verzameling 
programma's, artikels en tips. Aan de namen van de auteurs 
kan je merken dat er bijdragen zijn uit heel Europa, 
de vertaaldiensten zorgen er verder wel voor dat dit 
alles voor de diverse nationaliteiten te begrijpen is. 
Voor de Nederlandse leden wordt bestellen еп betalen 
een stuk eenvoudiger : Just van Dunne is zo vriendelijk 
geweest voor DAInamic een POSTGIRO nummer in Nederland 
te openen. Hier kan je voortaan terecht voor alle verrich- 
` tingen i.v.m. software,hardware en abonnementen. 

| J.F. van Dunne 

Hoflaan 70 

3062 JJ ROTTERDAM 

GIROnummer : 4083817 Telefoon : 010/144802 


Wij wensen U nog een prettige vakantie, tot binnen 2 maanden. 
Dear members, 


With Newsletter 16 we offer you a lot of programs, articles 
and hints for your DAI computer. Many thanks to the 
authors. all over Europe. Special thanks to Bill Read, 
Colin Hards, Dave Aert Cedric Dufour and all those 
who take care of the translations. BASICODE II is a 
new version of the HOBBYSCOOP transmission standard, 
written for DAI by Th. van Lieshout. Maybe you can capture 
Hilversum radio on the short waves ? In next issue we 
hope to bring you an extended  test-report оп  KEN-DOS, 
the system should be ready by that time. Rumours аге 
that INDATA is also preparing new drives » we will let 


you know. 


We wish you sunny holidays, enjoy newsletter 16. 
p.s. don't take WOM too serious ... 


Wilfried Hermans 
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147 Кетагк Redactie 

148 Inhoudstafel - Contents 

149 DAINIBBLE Hendrik-Jan van Randen 
150 SFGT Н 8 A Lambrecht 
151 DAInamic Debugging Tool W.Coremans 

152 SUPER DCR-LIST N.P.Looije 

153 Timing Problems / New software Th. van Lieshout 
154 Programmeertechnieken F.Druijff 

157 Probiem program / Hardcopy PASCAL F.Druijff / A. Mariatte 
158 Rotating Bungalow A.Vingerling 

161 FGT DEMO D.Atherton 

162 VISISORT (SORT DEMO) B.Maertens 

164 DAI VIDEO HARDWARE G. Hospers 

167 Continuation lines J.Boerrigter 

168 Screen to buffer - buffer to screen W.hermans 

169 2-D Transformations F. van Amerongen 
170 WOM - a new IC F.Druijff 

171 FIAT G. Uliana 

172 On error goto N.Looije 

174 Upper to lower case J.Boerrigter 

175 GRAFTEXT (first load FGT) F. van Amerongen 
176 RANDOM- ACCESS F. Couwberghs 

178 Negatieve Cursor C. De Bont 

179 . Flashing in 4 COLOR H.Harte 

180 Software Printer Spooler P.Lelie 

184 READ/WRITE in UTILITY J.Boerrigter 

186 Large Text T.Groeneveld 

188 BASICODE II Th. Van Lieshout 
199 Notte di fuoco in MODE 1 G. Uliana 

200 Commandes dans un programme C.Dufour 

201 CALLM / Montagnes Dufour / Debrouwere 
202 INTEGERS D. Bonné 

207 Netzteil & Uberspannungsschutz R.Corswandt 

208 GOTO X / RUN X / Reglage Lecture J. van Dunne / A.Mariatte 
209 Programming Techniques Translation UK 

212. BUTTERFLY selfportrait T. Mikulic 


DAInamic subscription rates : 


Benelux : 900 Bfr 
Europe 000% 1000 Bfr 
Outside Europe : 1400 Bfr 
(Air Mail) 


pay to : Dainamic SUBSCRIPTIONS 
B.Van rompaey 
Bovenbosstraat 4 
3044 HAASRODE~BELGIUM 


* by check or 
* on Bancaccount nr 230-0045353-74 
of Generale Bank Leuven c/o DAInamic 
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— — SFGT 





First there was ЕСТ, with many facilities and medium speed, due to 
the restrictions of the DRAW-routine in  DAI-BASIC. Then there was 
FFGT, high speed, but with restrictions of bit-access. 

Now there is SFGT, a high-speed text-in-graphics program, offering 
the best of both previous programs 


SPECIFICATIONS of SFGT : 


compatible for all graphic modes 
Speed : up to 300 characters/second 
the same call-procedure as ЕСТ : САГЫМ 800,A$ 
up to 10 tables of characters in memory at the same time, 
choice of table with 1 POKE ! 
* parameters: 

_ horizontal position 

- vertical position 

_ horizontal step/character 

_ vertical step/character 

_ vertical step on OFF/SCREEN (no error) 

_ horizontal step on OFF/SCREEN (no error) 

_ left margin of screen WINDOW 

_ right margin of screen WINDOW 

- top of screen WINDOW 

- bottom of screen WINDOW 

_ matrix start 

_ matrix lenght 

- string-start (implied MID$) 

- string-length (implied MID$) 

- up/down/left/right contruction of strings 

_ retain horizontal position 

_ retain vertical position 

- high speed flag 

_ INKEY-function 

- define background & foreground of characters 

_ delay/character 

_ combination of characters 
* most of the parameters are optional, 3 or 4 POKES are sufficient.. 
2d build-in animation mode 






ж ж ж ж 


The SFGT package includes 
— SFGT 
– manual 
- software-manual : a program demonstrating the use of 
the SFGT-parameters 
a sofisticated TABLE-CREATOR (with build-in byte-shift 
manipulations) 
а CONVERSION-program to convert FGT-tables to SFGT-tables. 


SFGT was written by Henri & Andre Lambrecht. 


price of the package : audio : 1000 Bfr 
DCR : 1150 Bfr 


жек 
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DAInamic DEBUGGING TOOL 






MEN се ба 


Dainamic Debugging Tool (DDT) by М. COREMANS 


1. DESCRIPTION : 


i. Putting up to 255 (defau 
(Machine Language — 
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SUPER DCR-LIST 


| 1 
1 t 5 
i mm DCR 123 + 1 FF I P 
В 1<5<<<<<<<< А 5255525) { i 
П iei- 2Pro (408% of Newslmtters!<<<<<<<<<< B 2220202202202 H 
— H 13- 15 (c) DAInamic 129- ЫЫ Ы 15-14-15 SE i 
¦ 123 192- ebeno. с. POELS DAIn 1985 H 

$ rab ar PUZZLE C.POELS 121-ФА6Т ERIK * (tov ver of H 

1 12 $ EPROK-PROGRAMMER VS G. 25122: © CHARACTER INVASION "Aus i H 
:65-1вева ele mip ЕРНОМ-РКОВ:25- -% 3-D 1 eenbladige essent! t 7» 

4 

4 


H H RAMMER КМООРБ 1 slingshypsrboloids NIS p ! 
| 196-180URCE EPROM-PROGRAMMER : 
H 


Н Б. КМООРБ 124-6 BLOK IN REVERSE N15 p 1! 
1@7-% ROTATION ECRAN C.POELS : 37 H H 


1€8-eHISTOIRES 125-0 SYMMETRISCHE WAAIERS к 

194- ° SCHNELLER ANALOG DIGITA: s 137 H 
i н LER К 126- ° АМОС ВРЕ ER М15 37 H 
{ 119- vere ANALYSATOR KOPP 127- 6 CUBE ROTATION іш TRANS i 
Н pr 9 GROETEN UIT HAWAI - аот at 258 ATING IN SPACE NIS p IA H 


H 112- M LINEMGDEBYTES & COLOURT! 
1 І ҮРЕВҮТЕБ N.LODI 
1 113- EE DERE (FBT not теты! 


+------ 114- жопе 7 INITIALISTIE ve. ei 
i 125 115-ФМОПЕ В INITIALISTIE Ve. et 
1 ATABLE 


O1-2-ARR-Programas of Newsletters 13-14-15 (с) DA 
i Inanic 

i 82-0-PAS-DENO C. POELS 

| 05-0-BAS-MULTL PUZZLE C.POELS 

t 04-0-BAS- EPRON-PROGRAMMER V3 G.KNOOPG 

1 05-1-084-8000 B195 alp EPROM-PROGRAMMER KNOOPS 

t O5-1-0BJ-SOURCE EPROM-PROGRANNER 6, KNOOPS 

t 07-0-845- ROTATION ECRAN C.POELS 

i. 08-8-BAG-HISTOIRES 

t 09-0-BAS- SCHNELLER ANALOG DIGITAL WANDLER KOPP 

i 10-0-845- LOGIK ANALYSATOR KOPP 

г 11-0-BAS- GROETEN UIT HAWAI = ALOHA OE, 

$ 12-0-BAS- LINEMODEBYTES k COLOURTYPERYTES N.LODIJ 





E ' 
13-0-BAS-FGT-DEMQ (FGT not included) t 
14-#-0NA-MODE 7 INITIALISTIE /0,0 i 
15-F-DNA-MODE B INITIALISTIE VO, i 
15-0-BAG-MODE 7 RELOCATABLE i 
17-0-BAS-MODE 8 RELOCATABLE i 
18-0-BAS-3-D GENERATOR J. ROELANTS | 
19-0-BAS-BASIC PAINT DEMO F.DRUIJFF ' 


update 83-05-10 


O1-2-ARR-Newsletters 13-14-13 ic) DAlnaaic 1983 

02-0-BAS-ASTERIX (cover of МА) 

$3-9-ВАб- CHARACTER INVASION №15 р101 

04-0-BAS- 3-0 : eenbladige omwentelingshyperboloi 
de NIS p 129 

05-0-BA5- BLOK IN REVERSE NIS p 137 

$#4-9-ВАб- SYMMETRISCHE WAAIERS №5 p 137 

@7-Q-BAS- ZANDLOPER NIS p 137 

08-0-BAS- CUBE ROTATION AND TRANSLATING IN SPACE 
NIS p 134 


O9-2-ARR-. 


update 83-05-16 ! 
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TIMING PROBLEMS 


PROBLEMEN BIJ (KORTE) TIJDSMETING OP DE DAIpc 


Bij het ontwikkelen van de BASICODE is het mij opgevallen dat de machine- 
instructietijden van de 8080 microprocessor niet kloppen. Bij uitzoeken 
bleek dit (volgens mij) de volgende oorzaak te hebben : 

De computer is hardwarematig zo opgebouwd dat de microprocessor еп 
de videoprocessor om de beurt gebruik maken van het RAM-geheugen. 
Echter op het moment van de rasterterugslag ( dit is het moment dat 
de electronenstraal van rechtsonder naar linksboven in het beeld gaat), 
maakt de videoprocessor geen gebruik van de RAM en draait de micro- 
processor op volle toeren. Mogelijk treedt dit effect ook op bij de 
linesync (lijnterugslag). Effectief werkt de microprocessor ор gemiddeld 
1.17 Mhz. Normaal zult U hiervan weinig merken. Echter bij korte tijd- 
meting of frequentiemeting, zoals de ontvangst van BASICODE, telex 
of morse dan wel satellietontvangst, dan zal er niet die frequentie 
uitkomen die U berekend had. Bovendien zal er een interferentie ontstaan 
met de 50 Hz van de rasterterugslag (dit is geen brom o.i.d. van het 
lichtnet). De interferentie is wellicht te verminderen door grbruik 
te maken van subroutines in het ROMgeheugen (vb delays ). 

Het genoemde effect treedt nl niet op in de ROM, daar de videoprocessor 
hier geen gebruik van maakt. Bij tijdsmetingen van meer dan 50 à 100 
mS zult U weinig last hebben van het genoemde effect omdat dan de 
rasterterugslag weggemiddeld wordt. Ik hoop hiermee enkele mensen 
slapeloze nachten bespaard te hebben. 


met vriendelijke groeten, 
Th. van Lieshout 
Postgalei 5 

1687 VP WOGNUM 

NEDERLAND 

tel 02297-2648 


DAINIBBLE 


After DAIPANIC,CENTIPEDE,ACROBATES, another 100% machine language 
game : high resolution (MODE 5) , very fast and very nibble .... 


audio : 800 Bfr 
DCR : 950 Bfr 


SFGT 


The very best of text-in-graphics , superspeed and all the options 


v pice od NEW SOFTWARE 


TOOLKIT 5 


BASICODE II 

DAInamic Debugging Tool (see description in this issue) 
DAICOM communication program (see Newsletter 15) 

SUPER DCR-LIST (see sample printout in this issue) 
PAINT-routine in machine language (a very fast one) 
SOFTWARE PRINTER SPOOLER (see this issue) 

Gothic characters with FGT 


ж ж ж ж ж ж ж 
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· PROGRAMMEERTECHN ТЕКЕМ : 


weer Gens de wer 





r 1 e 
t ook overzichteliikheid en veranderbaarheid van een 
aak zelfs van doorslaggevend belang, maar over de 
orogramma valt weinig te vertellen. Aanwijzingen 
е а h в 31 







apart timer-programma te maken dat іп 
het grote programma zolang dat nog in 
is. Hieronder het geraamte van dit programma: 
IBE-TIBF*226)/20,8 
om de regels te nummeren met 19- 
te testen deel zetten. 
De variabelen ТІНЕ en TIBF zijn 


2O0msec klok die de waarde op ЖІБЕ 
tot dat die nul is. 
bytes met #FFFF ‚вен 
your een schone star 
5 C maakt van deze adres 
el) geen WAITTIME voorkomen. Andere WAIT 
“Пе tijd dan door die WAIT's beinvloed wordt 
in regel 98 is het best in deze volgorde! Bis an- 
verkeerd gaan. Voorbeeld: #1БЕ staat op #55 en ЖІБЕ 
is tussen de twee РЕЕК”е zal de volgorde er niet 
rste en tweede РЕЕК in wel een vermindering 
tkomst 28 msec kleiner zijn dus 50.10 ipv 56.12 seconden 
sschien, maar onjuisti we moeten niet de snelheid bein- 
— amma zelf, Toch is er wel een risico aan verbonden : 
22. keer staat ЖІБЕ ор nul en wordt dan met een 
1 de klok niet 29 ms maar 256 % 29 ms is ruim vijf seconden 
an. Dit verschil is echter zo groot dat dat moet opvallen. 
door 58,8 en niet door 58 omdat we een fpt-uitkomst willen. 
en kappen we alles naar beneden af op hele seconden, 









e 
niet handig omdat 
= 


Е 
рр 
ee 


E 
= 
sen de 


wat exp 


— eren met deze timer en komen dan tot vermoedelijk voor 
nde Bilas eer eee Ik vermeld met opzet de resultaten niet. 

en gemakkelijk zelf de tests uitvoeren en dan verrast 
verder gaan proberen, Voor programmadelen die erg be- 
nelheid zal het bijna altijd lonen een aantal mogelijk- 
heid te SE Veel mensen zien echter niet dat er verschillende 
-ijn. Vandaar enige voorbeelden, waarbij de uitkomsten soms veel ver- 
len maar some — nauwelijks of niet. 

i nstructie zo snel gedaan wordt dat dit met deze methode 

п we ег ееп FOR - NEXT loop omheen zetten. Het timen van 


opzienbarer 











ІМРІМТ. 
2: NEXT 
ie 5400 maal doorlopen wordt 7 
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zou de maker misschien wat gaan 
gemaakt en anders blijft P 


VCI THEN. (ik beweer niet dat EE handiger is) 





Saat U deze rege] maar eens па en е u e eens de IF te vermiiden, het 
is een zeer goede oefening. 


In een vorig artikel is al eens uitgelegd waarom we sprongen naar hogere regel- 
nummers (dwz ver naar achteren іп de listing) moeten trachten te voorkomen in 

snelheid bepalende delen, Maar wist dat de ON W GOTO sx sneller werkt dan de 
IF хх 8070 ? Voorbeeld IF PEEK (I})=1 GOTO 299 is trager dan GN FEEE{T} SOTO 288, 


Miet altijd zal echter de te testen variabele geschikt zijn om met de ON М 2070 
te gebruiken, Een extra berekening kan de winst dan weer geheel teniet doen, 
Controleer zeker aan het eind of er geen GOTO's te veel in een programma staan, 
Het staat zo dom om in regel 59 aan te treffen GOTO 178 en dan op 179 alleen 
БОТО 228 en dan op 228 alleen GOTO 58. Dit is echt geen fantasies ik heb pro~ 
gramma's (inderdaad meervoud) waar zoits in staat. Maar ik heb er ook begrip 
voor. Normaal zal niemand zoiets programmeren, maar op regel 178 stond bij een 
eerdere versie nog een andere instructie voor de GOTO. Later bleek die oyerbo- 
dig maar de 8070 niet. Gm een logische programmavoortgang te krijgen keerde men 
alleen vanaf regel 220 terug naar het begin van het programma. Dus vanaf regel 


a 
178 naar regel 228 en niet naar regel 20. Nu beter te begrijpen maar nog steeds 
nist de snelste of overzichtelijkste versie. 


Nu wat de GOSUE betreft. Ook hier tegenstrijdige belangen. De overzichtel 
heid van het programma is gehaat met een uitgang (RETURN) en een ingang n 
subroutine maar de snelheid kan soms gebaat zijn met meerdere in en uitgangen 
уап een subroutine. 
Voorbeeld: 

78 GOSUR 2909 


beb na 
Cl == 


БОБИЕВ 2913 


2000 IF А=5 THEN RETURN 
2010 = 2 
2828 КЕТЏЕМ 


ТЕ kies zeit in zulke gevallen b 
dus laat ik overzichtelijkheid pr 
De instructie ON xx GOSUB kom ik z 
hem wel kennen, Probeert U het gerus 


па altijd voor 2088 IF 4=5 GOTO 2979 


TUR 


ik me afvraag of de mensen 
enheid zich voordoet., 


Elders іп dit blad zu 


lt U een artikeltj i е over de 
GOTO. Wat hij daar uitlegt kan soms zeer iandig zijn maar kast wel meer tijd 
dan de normale GOTO, Het voordeel is dan ook gelegen in gebruik in bijzondere 
gevallen. Gok zult U nog een klein (2 regels) programmaatje van mij kunnen vin- 
den waar ik de timer om heen heb gezet. In dit programma offer ik echt alles op 
aan de snelheid en pas verschillende ‘gemene’ trucs toe om de snelheid te ver- 
hogen. Ondermeer laat ik een NEXT door twee verschillende FOR’ a gebruiken en of 
dit nog niet ‘gemeen’ genoeg is cok nag eens een FOR twee MEXTen gebruiken, 
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Verder zijn er reacties binnengekomen op het 'cirkel'programma van nummer 14, 
Meerderen hebben vastgesteld dat er snel ronde ellipsen getekend werden еп geen 
echte cirkels. Dank voor uw bijdrage, die wij niet alle kunnen publiceren maar 
maar wel een ervan of een combinatie. Als uw bijdrage niet expliciet gebruikt 
is laat dit U er dan niet van weerhouden nogmaals in te zenden. Van alle inzen- 
dingen wordt nota genomen, 


Succes met de timer en vindt U iets zeer opzienbarends laat het dan even weten. 


Frank H. Druijff 


PROBLEM PROGRAM 


Problem - program ~ problem - program - problem - program ~ problem - program 


Hereafter follows а little "besic'program of only two lines (18 and 28). 

The lines 2 and 95 are used for timing purpose, Can you do it faster ^? 

But what does it do? I challenge you, try to understand what this program does 
before you type it in. Hut be careful it runs only in a clean memory. So if you 
have typed it in, put it on cassette, turn your machine off and switch it on 
again, load the program and run it. Isn't it fast ? 


3 WAIT TIME 1:POKE #1BE,#FF:POKE #1BF,#FF:POKE #1BE, #FF 

19 CURSOR 1,22:РОКЕ #BF41,#32:POKE #131,1:FOR 5=0 TO 14:0N PEEK (G+#52F0) 
GOTO 20:FUR 1={6+6+6)*6+#35223 ТО #34E1 STEP Gt+G+3:POKE I,1:NEXT 

29 NEXT:FOR 1-й32Ғ0 TO #34E1:0N PEEK(I) GOTO 20:PRINT 1+1-#6500:РОКЕ #78 


‚В: NEXT 
95, В=РЕЕК (#1ВЕ} : А=РЕЕК GELBF) : PRINT :PRINT (#FFFF-B-Ax254) /30.0 
іза REM #22222 ІМРІМТ 3a 





ë REM LA COMMANDE Р DE TINY PASCAL МЕ РЕВМЕТ PAS В” 

e REM UTILISER UNE IMPRIMANTE DONT Lñ VITESSE EST <> DE 
e REM 9500 Bauds.IL SUFFIT DE VIDER LE BUFFER D'EDITION 
48 REM PAR CE COURT PROGRAMME BASIC, IMPLANTE A PARTIR DE 
50 REM 480006, COEXISTANT AVEC PASCAL, POUR AVOIR L'EFFET 
ёд REM DESIRE. 


2 REM EELER EE EEEE KK KAK 
3 REM +++ HARDCOPY SOURCE PASCAL 2325552 
4 КЕМ +++ іс) ALAIN MARIATTE 1985 325552 
S REM *** pour imprimante serie,vitesse ajustable + 
5 REM КЕННИ E 
7 REM 

8 , REH 

1 

3 


78 REM 
88 REM 
9e REM 


186 POKE #FFF5,#A0:REM VITESSE RS 252.1С1,4800 Bauds 
110 POKE #151,9:КЕМ OUVERTURE DU PORT RS 252 
126 І-і2000-1 
130 1=1+1: КЕМ DEBUT DE L'EDIT BUFFER 
149 . A-PEEE(CXD:IF A=0 THEN РОКЕ #131,1:END 
156 At=CHRS(A) 
168 PRINT ñ$; 
179 GOTO 128 
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1 REM 3| 3 3)( XJ ЕКЫ 

2 REM xs ZDPLOT VERSIE 19.06.82 344 

5 REM XX A.VINGERLING, R'DAM — xxx 

4 REM 3333330 0 (CC ANNEN JEJE JE EXE HN HN HHN 

100 CLEAR 2750:PRINT CHR$(12)::GO0SUB 7600:GOTO 193 

101  COLORT 5 15 9 @:MODE @:CURSOR 13,12 

102 PRINT "INITIALISATIE, EVEN GEDULD SVP" 

183  SF-1.0:608UB 2000:REM DATA INLEZEN 

194  GOSUB 6000:REM TOON MOGELIJKHEDEN ROT ATI NG 

120 COLORG 15 9 1% e:MODE G:MODE 6 

136 GOSUB 590:КЕМ NIEUWE PLOT TEKENEN 

140 GOSUB BIO:REM KLEUR WIJZIGEN BUNGALOW 
159  BOSUB 700:REM OUDE PLOT WISSEN 

150  Q%=1-Q%:KS=ABS(KS) 

174 IF FLX-1.0 THEN 219 uer 
188  AX-BETC:GUSUB 889:1Е AZ<16 THEN 180 PLUME 
190 IF AX-ASC("H") THEN GOSUB 4490: GOTO 130 

209 GOSUB 5000:0М F219% БОТО 218 

205 IF AL=ASC("/") AND AAX=0 THEN 180 

2% GOTO 25 

218 P210Z=0:IF AAX20.0 THEN АХ=АААХ (AAL) :AAL=AAL-1:G0T0 230 

220 AAL=O:FL%=0:G0TO 180 

230 IF AL=ASC(".") THEN VF-1.0/0.8:80T0 250:REM > 

240 VF=0.8:REM < 

250 IF AX=ASC("1") THEN A%=1:G0TO 280 

250 IF AL=ASC("2"} THEN AX-2:80T0 280 

278 IF АХ<=19 THEN AZ-AX-13 

280 REM FOR Р-і TO NP:XX!(P)2X! (P) YY! (P) SY! (P) S NEXT 

296 IF AZ=ASC(",") OR AZ=ASC(".") THEN GOSUB 9¢0:GOTO 138 

300 IF AZ>=0 THEN ON АХ GOTO 320,330, 400, 410,500,510 

305 IF AZ=ASC("C") THEN GOSUB B800: CF4=1-CFZ: GOTO 130 

310 GOTO 186 

320 — KS--KS 

3309 FOR PX-1 TO NPX:X=X(PZ):VY=Y(PZ):XIPZ)=X#KU+Y#ES:Y(FZ)=YsKE-XxES:NEXT 
549 GOTO 130 

400 KS=-KS 

410 FOR PX-1 ТО NPZ:VY=Y(PZ):Z=Z(PZ):Y(PZ)=YxKC+ZxKS:Z(PZ)=Z*KE-YzKS:NEXT 
42@ GOTO 130 

529  KS--KS 

518 FOR PX-1 TO NPL: Zei (PX): Sech (F4) : 2 (PZ1=Z#KU+XxKS:X(PZ)=XxKCE-Z#KS:NEXT 
528 GOTO 138 

60@ REM NIEUWE PLOT TEKENEN 

618 FOR LZ=1 TO NLX:PAXZ=LAX(LX):PBZ=LBZ(LX) 

628 DRAW X (PAX) +XC0%, У (PAZ) +УСХ X(PBZ21Y+XEZ,Y(PBZ1+YEZ 17-0242 

638 . NEXT: RETURN 

760 REM OUDE PLOT WISSEN 

710 FILL @,@ XMAX,YMAX 18-240%: RETURN 

800 IF СЕУ-0 THEN FILL 306,9 220,6 15:60Т0 802 

891 FILL 205,0 309,6 0 

802 RETURN 

818 IF CF%= THEN COLORG @ 154(1-0%) 15#0% 15:GOTO 812 

811  CULORG 15 15%0% 15-QXx15 0 

812 RETURN 

880 ОТУ=0ТХ+1:1Е ПТХ<15 THEN DRAW 305,1 300,6 15:DRAW 505,6 200,1 15:RETU 
RN 

881 DRAW 295,1 300,6 O:DRAW 305,6 300,1 O:1F QT%<30 THEN RETURN 

882 ОТХ=0: ВЕТОВМ 

900 FOR QO%=1 TO NP%:X (005) =VF#X (007) : У (007) =VF#Y (005): Z (DDZ)=VFxZ (ORA) EN - 
EXT: RETURN 

2000 REM —— DATA INLEZEN —- 

2005 POKE 475,32:CURSOR @,5:PRINT "data inlezen:"; 

2004 CURSOR 15,5:DPI-12.0:808UB 5200 

2010  XCX-165:YC4-127:0X-1 

2020 READ NPX,NLY:PRINT 1.6 

2030 
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DIM X(NPZ),Y(NPZ),ZI(NPZ) 
83-16 | 


2948 DIM XX(NFZ),YY(NPZ) 

2050 DIN LAZY IN Z) LBX {МЕХ}, АВАХ (188. 0) 

2066 FOR PZ=1 TU NPZ:READ X (PA), Y OPA} , (РУ) 

2070 XIPX)=X(PZ)*SF 

2080 Y(PZ)=(Y(PZ)—-20.0)*SF 

2090 Z(PZ)=Z (FX) 4SF 

2108 CURSOR 2¢,5:PRINT NPZ-PZ;:NEXT 

2181 CURSOR 15,5:PRINT @.6 

2110 FOR LX-1 TO NLX:READ АХЛ) СВХ) 

2111 CURSOR 20,5:PRINT NLZ-LX::NEXT 

2120 FOKE #875,95:RETURN 

4000 GOSUB 4089: MODE 4:FF=1.@:GOSUB 900: RETURN 

5880 IF &Z=47.0 AND AAX?6.0 THEN FLX-1:G05UB 860: Р218%=1: RETURN 
5010 IF AZ=47 AND GAL=G THEN RETURN 

5015 AAZ=AAY+1 

2020 IF Ax=49 THEN АААХ (ААУ) =50: БОСОВ 898: RETURN 

5858 ТЕ АХ=50 THEN АААХ (ААХ) =49: 50508 886: RETURN 

5040 IF AX-17 THEN АААХ (68%) =16: GOSUB 890: RETURN 

5958 IF AX-16 THEN АААХ (ААХ) =17:6050В 320: RETURN 

5066 IF AZ=19 THEN АААХ (АА7) =18: 50508 BOO:RETURN 

3655 IF AX-18 THEN AAAZ(AAZ)-19:G605UB SOO:RETURN 

5070 IF AZ=46 THEN AAAX(AAX)-4A4:GDSUB 800: RETURN 

5000 IF AZ=44 THEN AAAL(AAL)=46:GOSUB BOO:RETURN 

50981 IF AZ=ASC("H") THEN MODE e:6D0SUB 4802: MODE 4:GOSUB 846: RETURN 
5990 IF АХАС ("5°") THEN RETURN 

5991  DP-1886.98/DPI:PRINT “Hoekverdraaing is nu": CURSOR 2@,3:PRINT 186.@/DP 
Iz" (uitgangshoek ="3198.a/DFI:" graden)" 

5072 PRINT "grotere hoek : bovenste cursortoets + repeattoets":PRINT "klei 
nere hoek: onderste cursortoets + repeattoets" 

5095 AK=GETC:IF AZ=@ THEN 5093 

5994 IF АХ=94 THEN MODE 4:8%=@:RETURN 


3095 IF AX=1& THEN DP=DP+1.6: CURSOR 20, SPRINT " "i CURSOR 26,3:PRIN 
T DP}: GOTO 5093 
3696 IF AX=17.0 THEN DP=DP-1. 9: CURSOR 28,3:PRINT ". "S:CURSOR 20,3: FR 


INT ОР;:60ТО 5093 

2097 IF АХ<>13.@ DR DP=0.0 THEN 5093:DPI-180.0/DP 

2078 MODE &:GOSUB 5200:GOSUB 860: AX=0: RETURN 

9200 PHI=PI/DPI:KS=SIN(PHI) :KC=COS (PHI) : RETURN 

5006 COLORT 5 5 5 S:MODE G:PRINT CHR$112)::IF A%=ASC Н") THEN CURSOR 2,22 
беја PRINT " ========================================================== " 
6011 PRINT "Dit programma plot een ruimtelijke figuur en maakt het" 

6020 PRINT "mogelijk deze te wentelen, te vergroten, of te verkleinen” 
6920 PRINT "m.b.v de cursortoetsen en met i,2,%,7 en /":PRINT 


5040 PRINT CHR$(135):" : roteren naar links TXZ" 
6050 PRINT CHR$(127);" : roteren naar rechts KE 
5060 PRINT CHRS(94)3" : kantelen achterover +YZ" 
6979 PRINT CHR$(148)5" : kantelen voorover -Y2" 
59896 PRINT "1 : wentelen met de klok mee TXY"U 
56090 PRINT "2 wentelen tegen de klok in -XY" 


5100 PRINT "> 
6118 PRINT "< 
5120 PRINT "/ 
6125 PRINT "H 


vergroten (geen shift gebruiken) +Y" 

verkleinen дееп shift gebruiken}  -Y" 

alles in omgekeerde volgorde tot de сағарғ. figuur" 
HELProutine, toont de verschillende commando’s" 

6124 PRINT "5 Stapgrootte hoekverdraaing instellen m.b.v cursortoetsen" 
5127 PRINT "C Change: inverteert de kleuren” 

5128 IF AX-ASCU"H") THEN 4176 

6129 PRIMT * پپپ ف‎ 
8158 PRINT "IN DE DATASET : NP= aantal knooppunten" 

8140 PRINT SPC(15):"NL- aantal lijnen" 

6156 PRINT SPC (16); "xl, yl, z1, x2, y2, 22,7 knooppuntscoordinaten" 

6160 PRINT SPC(14)}i"bl,e1,b2,82,= begin/eind lijn 1,2, enz." 

S176 PRINT " ===========================================================m" 
8180 PRINT "Het programma begint na aantippen van een toets"; 

5185 COLORT 5 15 6 @ 

6198 IF GETC=0.@ THEN 6198 

6200 MODE 4: RETURN 





k Sua 
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76006 
7001 
7982 
7005 
7004 
7005 
7006 
7007 
7808 
7609 
7918 
7020 
7030 
7940 
7950 
7258 
7970 
7686 
7090 
71880 
7118 
7111 
7112 
7120 
71360 
7148 
7158 
7189 
7170 
7182 
7199 
8600 
8810 
8820 
80370 
вола 
8959 
8040 
8079 
чове 
8996 
8199 
8118 
8111 
8112 
8120 
8130 
8140 
8152 
8158 
8178 
8186 
8196 
2299 
19001 
18002 
18003 
18004 
10005 
18006 
19007 
19088 


19299 


REM MELDING 
COLORT 5 5 5 S:MGDE 6: PRINT CHR#(12)3:CURSOR 6,15 


PRINT "69000 499880 909090 а 906000 0000000" 
PRINT " а = @ 6 6 9 6 о e ^ 
PRINT " e в e e e e e e 9 3 
PRINT " 2000 e o 000 00090 9 9 e e н 
PRINT " o o а e ә e 8 9 " 
PRINT " e e 0 e e e e 8 s 
PRINT "00000 800060 aaa 0000606090 90008 ema " 
COLORT 5 15 6 O:RETURN 

DATA 43,49 

REM xil,yl,z21,*2, y2,z22..knooppuntscoordinaten 


DATA 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
DATA 
BATA 
DATA 
REM h 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM NP, NL aantal knooppunten/1ijnen м 
45,49 \! NN 
Pob. #2, y2,Z22..knooppuntscoordinaten Lili 


рата 
КЕМ к 
рата 
рата 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM b 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
END 
REM М 
COLOR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
COLOR 
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—ё0,0,-58,20,0,-50,-50,0,58,-60,40,-—50 

26,6, -16, 26, 40, -50, 60, 0, 50, —46, 40, 50 
-20,70,-40,80,0,-10,20,40,-10,20,40,50 
88,20,50,-20,70,49,80,50,-10 

—5@, O, -50, -5@, 20, DO, -35, 25, -50, -35, 8, -560 
-20,16,—50,—20,253, 50, 10, 25, 320, 16, 10, -50 
28,10,—40, 20, 25, 40, 20, 25, -20, 20,10, -20 
50,0,-10,50,25,-10,50,25,-10,50,9,-19 

68, 19, 18, 66, 25, 16, 66, 25, 36, 60,10, 30, 0, 0, 0 
-46,3, -50, -45,5,-50, -39,5,-56, —29,.3,.-50 
—48,12,-52, -37,12,-52, -37,12,-20 
1,e1,62,..begin- en eindpunt v.d.staven 
122.128 E 4,2,5,2,6,5,7,3,В,4,6 
4,8,4,%,5,10,5,11,6,%,46,12,7,10,7,13 
8,12,8,14,9,14,10,15,11,15,12,12, 12,14, 13, 15 NS 
18,17,17,18,18,19,20,21,21,22,22,25,25,20,24,25 — 


25, 26, 26,27, 27, 24, 28, 29, 29, 30, 50, 51,32, 35 ee 


55,54, 34,35, 35, 32, 36, 36,37, 38 
38, 39, 57, 40, 40,37, 41,42, 42, A3 


-69,0,-50, 20, 9, -50, -60, 0, 50, –60, 40, -50 
20,0, -10, 20, 40, -50, L0, 0,50, -60, 40,50 
-20,79, 40, 50,0, -10, 20, 40, -10, 20, 40, 50 

50,30, 50,-20, 76, 40,50, 30, -10 

-50, 6, -50, -50, 25, -50, -35, 25, -50, -35, 9, -50 

-26,10, -50, -20, 25, -50, 10, 25, 56,10, 10, -50 
28,16,—40, 20, 25, -406, 20, 25, -20, 20, 10, — 
30, 0, ~10, 39, 25, 10,50, 25, 10,500, -10 
59,180,106, 50, 25,10, 50, 25, 20, 60, 10, 3e, 9,0,0 р 
-45,3,-Ч0, -46,5,-30, —59,5,-50, -39,5,-50, Р 
-4@, 12,-S2, - 37, 12, -92, -57, 12,-5@ = 
1,21,b2,..begin- en eindpunt v.d.staven E 
1,2,1,5,1,4,2,5,2,5,5,7,5,В,4,6 | 
4,8,4,9,5,19,5,11,4,9,6,12,7,10,7,13 Жа 
8, 12,8, 14,9, 14, 19, 15,11, 15,12,13, 12, 14,13,13 < 
16,17,17,18,18,19,20,21,21,22,22,23,23,20,24,25 ~~ 
20, 26, 26, 27,27, 24, 28,29, 29, 30, 30, 31, 32, 53 














33,34, 34, 35,35, 32, 36, 36, 37, 38 
38, 39,59,40,40,37,41,42,42,45 
ELDING 
T 5 5 5 S:MODE @:PRINT CHR$(12}3:CURSOR 0,15 
"99000 900000 280000 е 80080 9000000" 
s а © в о ә ә e e 9 
s е oe o 6 6 o ә e 9 
" 6600 0 о ооо 00000 o ә ә e 
" ое o o o ð д 2 
оо 9 e e a e o 
"22000 000000 eoo 6000000 00000 одо 


T 5 15 Ө O:RETURN 





18 5070 1506 

e НЕН ава Bate Ұлы NUS ааа баллын RI ua 
188 НЕМ. Here is а small demonstration program š 
118 REM . which should hopefully solve your FGT 2 
128 НЕМ. problems. Read through the listing 4 
i36 REM . carefully after observing what happens А 
149 REM. оп the screen. You should then be able . 
ine REM . ta duplicate the effects in your own S 
88 REM. programs. The subroutine from lines . 
i78 REM . 1858-1950 should be used in all your Р 
18% REM . BASIC programs that use FGT. You may . 
ізе REM. of course compress the lines by using = 
288 REH . colons. . 
218 REH . Dave Atherton . 
Bee! НЕМО а база теа аі жаза ала АЖ тыз 


1882 REM CC-TEXT COLOUR 19-15) 

1985 REM X-X START POSN 19-355):Ұ-Үү START РОЗЫ (8-254! 
1804 REM SP=SPACING BETWEEN CHARACTERS (8-255) 

1985 REM DF=DIMENSION OF CHARACTERS {8-15} 

1885 REM VF-TEXT PRINTED VERTICALLY (1) OR MOT (oi 

1887 REM ZF-LEFT TD RISHT(@) OR RIGHT TO LEFT (13 

1888 REM PF=NEW X,Y USED(@)}, EXISTING РОЗН USED NEW XY IGNORED(1} 
1989 REM T$-TEXT PRINTED (UF TO 255 CHARACTERS) 

1818 REM FF=BACKGROUND FILLED IN {1} OR NOT (e) 

1611 REM FC=FILLCOLOUR FOR BACKGROUND (0-19) 

1812 REM ID-VERTICAL SCALE (6-255) 


1938 FORE #2°8,FC4##48+CC% 

1855 FOKE #2F1,FFZ343064FFZ22484647FZ382064VFZX819+DFZ 
1548 POKE #2F2,XZ MOD 254 

1841 POKE #2F3, 44/254 

1942 POKE #2F4, YX 

1845 FOKE #2F5,5SFZ 

194? POKE #226, ША 

ізде CALLM #200, TE: RETURN 

1580 MODE @:PRINT CHRS(12):CLEAR 1660 

1518 DIM ñ*(SYI:FDR ñ6Z=9 TO 2:КЕАр A$ (AGL) 2 NEXT 


1512 DATA “THIS SHOWS THE", "FET PROGRAM", "WITH THE" 

1558 GOSUB "ooe: GOOD 9 9 15 9 FREQ(4@@}:WAIT TIME 1@:50UND OFF 

1558 GETAS=GETC:IF БЕТУ-Ә THEN 1558: END 

28808 REM РСТ PARAMETERS 

2810  XX-20:YX-120:8PX-9:FUZ-i: CORSO: DF 426: IDZ=1S:PFX=6: ZFZ=06:FFZ=0:STZ=15: 


2013 COLORG В 15 5 2 

2014 AS(S)="STANDARD CONDITIONS": GOSUB 5000 

2015 VFA=1L:AS(S}="VERTICAL FLAG SET":GOSUB 3000: VFZ-e 

2015 DFA=1L:AS(2)="DIMENSIONS ALTERED": 50506 5000: DE Zo 
2017  IFX-i:XX-200: YA=10: A$ (3) "DIRECTION FLAG SET": 50506 3008: TFLSS 
2918 SPA=19:A8(7)="SFACING ALTERED": 50508 5000:8РҰ-9 

2019 PRA=1:4$(3)="PRINT FLAG SET": 50506 3000: РЕХ=О 

2826 CCA=RND(16)}:A%(2)="COLOUR ALTERED": GOSUB 35090: CUZ=6 
2821 FCA=7:A8(3)="FILLCOLOUR UNSET":GDSUB 36@6:FCH=1 

2022 STA=18:A$(2}="LINE SPACING ALTERED": GOSUB S080: STA=15 
2925 FRA=L:A$C3)="FF FLAG БЕТ": GOSUB 3066: FFA=6 

2824 [DA=1BO:A$(3}="ID ALTERED": GOSUB 53080: IDZ=15 

2076 REM WITH THIS YOU SHOULD BE ABLE TO DO YOUR OWN FGT 
2850 RETURN 

3898 MODE 5 

3685 FOR РЕд=ХХ TO X4+3e57T% STEF STA 

3818 T#=ñ$(SZ):SZ=SZ+1;:VYX=YZ-5STX*(-ZFX*x2+1) 

3036 БОБОВ 1G030:NEXT:WAIT TIME 36:5470 

38650 KASZA: Y4=120: RETURN 


DAInamic 83-16 - 161 








1 CLEAR 1890:DIM S$í10.0),0$(10.0) 
19 REM SORTEERDEMO 


19 POKE 875,32 — SORTING DEMO 


2 GOSUB 1500 

3e PRINT " # VISISORT #" 

31 PRINT ТАВ (20); "hert maertens ":FOR 5Х!=1. e TO 37.6: AS=AS+CHRS (64) : NEXT: PRI 
NT At 

2 А%= њи 

40 PRINT :PRINT " 1) BUBBLE SORT":PRINT " 2} VERTRAAGD SORTEREN" 
59 PRINT " 5) SHELL-METZNER SORT":PRINT " 4) EINDE PROGRAMMA" 


ве PRINT : PRINT "Uw KEE Hu 

81 CHI=GETC:IF CH!-6.0 THEN 82 

82 LH'-CH!-48.6 

99 IF CH'<1.@ DR CH!>4./.@ DR CH!< SINT (CH!) THEN 81 

108 ТЕ СН! =4.9 THEN PRINT СНЕФ {12} END 

110 22. 1566: GOSUB 160 

120 Y!=22.@:FDR К= TO М5:8%(К2-5% (Ку: CURSOR 2, Y' :PRINT. АК}: \!=У!-1.@:МЕХТ 
13 ME-06:NC-6: CURSOR 20,22:PRINT "# ITEMS ="SNS: CURSOR 29,21:PRINT "# VERGELIJ 
КЕМ =" МС: CURSOR 20,20:PRINT "i UITWISSELEN =" МЕ 

јад ON CH! БОСОВ 710, 440,540 

159 CURSOR 0,12: PRINT “LIJST OPNIEUW SORTEREN <J/N>" 
151 КЕ !'=БЕТС: ЈЕ RF!-0.0 THEN ІЗІ 

152 БЕЗ-СНКФІНЕ!):50Т0 22 

158 IF СЕРТФ(КЕФ, 1)="J" THEN 259 

179 NSŠt="1@":PRINT “Hoeveel items sorteren (МАХ 9)": 
171 NS'=GETC:IF NS!=0.0 THEN 171 

172 NS=NS!-48.0:IF NS<2.0 DR NS>10.0 DR NS<>INT(NS) THEN 171 
173 PRINT NS 

180 . Fi1$-"C":PRINT “Door (Glebruiker of (C)omputer" 

181 RI!=BETC:IF R1!=9.8 THEN 181 

182  RiS$-CHR$(GI!) 

190 IF LEFT$(R1$,1)-"G" THEN 248 

200 . R£-"N":PRINT "(Nummers of (Lietters" 

201 RI=GETC: IF R!=0.0 THEN 201 

202  RS$-CHR$(R!) 

203 IF R#="L" DR R$-"N" THEN 219 

204 GOTO 201 

219 FOR К-і TO NS 

220 ЈЕ LEFT$(R$,1)-"L" THEN S$ (K) =CHR$ (RND (25. 0) +25. 0) 
222 ТЕ LEFTS(R$,1)="N" THEN &S¢(K}=CHRE (КМО (19. 0) +48. 9) 
236 NEXT:GOTO 250 

240 GOSUB 1500:PRINT “maximaal 1 teken per Кет": РОК К=1 TO NS:PRINT "ITEM id"; 
Ез" = "š 

241 S'-BETC:IF 5!-0.0 THEN 241 

242 S$(K)=CHRE(S') PRINT 5%{К):МЕХТ 

250 RF¢="N":GOSUB 1500 

260 RETURN 

27 CURSOR @,12:PRINT "дим een toets om verder te gaan” 
271 IF БЕТС=0. 0 THEN 271 

298 CURSOR @,12: PRINT SPC (51) 

300 RETURN 

31@ CURSOR 9,23:PRINT "—BUBBLE SORT-":GOSUB 279 

32 FOR І-і TD М5-1 

$3 FOR J=I+1 TD NS 

540 X=I:Y=J:BDSUB 710:IF AS(I}<=AS(J) THEN 550 

550 БОСОВ 750 


588 МЕХТ 4 

370 NEXT I 

380 CURSOR @,13: PRINT " SORTEREN BEEINDIGD....":GOSUB 279 
370 RETURN 

490 CURSOR 5,23:РКІМТ " —VERTRAAGDE SORTERING-":GOSUB 270 
410 J=0:R=@:1= 

420 1=1+1 
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430 IF I-NS THEN 520 
446  J-I:R-J*1 


450 X=d:Y=R:GQSUB 710:1F AS(R)>=AS{J) THEN 476 
A60 . J-R 
476 R=R+1 


480 IF К<-М8 THEN 450 

490 IF I=J THEN 420, 

gee GOSUB 750 

510 БОТО 420 

520 CURSOR 9,13:PRINT "SORTEREN BEEINDIGD...":GOSUB 279 
538 RETURN 

540 CURSOR 7,23:PRINT "—SHELL-METZNER SDRT-":G0SUB 270 
550 М=М5 

568 M=INT(M/2.9) 

570 IF M=0.9 THEN 690 


580 =NS—H 
5909 Hei 
600 I=H 
618 Ј=1+М 


620 X=I:Y=J:SDSUB 71@:IF А+(1)<=8%(Ј) THEN 558 
638 BDSUB 750 


640 1=1-М 
656 IF I?-1 THEN 51е 
660 H=H+1 


676 IF НУР THEN 569 

58e GOTO 598 

690 CURSOR @,13:PRINT "SORTEREN BEEINDIGD....":GOSUB 27 

700 RETURN 

718 | NC=NC+1:CURSOR 35,21:PRINT NC 

720 CURSOR 5, 23-X: PRINT CHR$(136):CURSOR 5,25-Ү:РНІМТ CHR$(LS&):CURSDR 0,0: WAI 


T TIME 5@ 
736 CURSOR 5,23-X:PRINT " "sCURSOR 5,23-Y:PRINT " " 
748 RETURN 


759 FOR K=2 ТО 8 STEP 2 

760 CURSOR K,23-I:PRINT " “: CURSOR K*2,22-I:PRINT ñ$(1) 

770 CURSOR K,25-J:PRINT " ": CURSOR К%2,25-4:РКІМТ ñ$(J) 

780 WAIT TIME S:NEXT К 

79@ CURSOR 19,25-Г:РАТМТ " “: CURSOR 12,23-I:PRINT A$(OD:DF-J-I 
вод FOR K=1 TO DF 

819 CURSOR 12,23-(I+K-1):PRINT " ":CURSOR 12,23-(I+K):PRINT А%(1) 
820 CURSOR @,@:WAIT TIME 20 

838 CURSOR 10,23-(J-K+1}:PRINT " ":CURSOR 16,23-(J-K}):PRINT АФС 
848 NEXT K 

858 FOR K-12 ТО 4 STEP -2 

850 CURSOR K,23-J:PRINT " ":CURSOR (K-2),23-J:PRINT АФ(1) 

878 CURSOR K,23-I:PRINT " ":CURSOR (K-2),25-I: PRINT A$(J) 

886 WAIT TIME S:NEXT É 

896 NE=NE+1: CURSOR 35,20: PRINT NE 

900 TEMPS=AE( 1) :AS( ISAS (JI: АЈ) = ТЕМРФ 

918 RETURN 

1499 GOTO 1499 

15@@ MODE @:PRINT CHR$(12):FOR X'=#BFEF TO #BA2D STEP -#8&4:POKE X!,#6A:NEXT:RET 
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DAI VIDEO HARDWARE 








DAI - VIDEO hardware: messcherpe plaatjes іп zwart-wit! 








Aangezien het werken met de DAI in combinatie met een gewone 
Tv een zeer vermoeiende bezigheid bleek, heb ik me nogal wat 
moeite getroost hierin verbetering te brengen. 
De problemen waar het hier om gaat treden vooral op bij 
het verwerken van tekst (ontwikkelen van programma’s). Als 
hoofdschuldige moet de karaktergrootte worden aangemerkt: 
64 tekens per regel is gewoon teveel voor een normale TV. 
Verder bleken die karakters niet zuiver stil te staan. Boven- 
dien hadden de letters last van allerlei "rafelige" uitwaaiers 
vooral bij het gebruik van verkeerde. kleuren. Wie een beeld 
voltikt met dezelfde letters kan'genieten' van een diagonaal en 
lopend strepenpatroon. Het totaal geeft ongeveer de indruk 
van een plaatje waar een watergordijn voor langs stroomt. 
Overigens: bij een spelletje 'Spaceinvader' heb ik geen 
enkel probleem met de beeldkwaliteit. Vooral bij het ontwik- 
kelen van programma’s is echter uiterste concentratie vereist. 
De extra belasting van de hierboven beschreven matige beeld- 
kwaliteit zal m.i. elke serieuze programmeur spoedig de hoop 


doen opgeven: hij/zij ziet letterlijk door de bomen het bos 
niet meer !!! 


Om een lang verhaal kort te maken: het is uiteindelijk gelukt 
een zeer bevredigende èn betaalbare beeldkwaliteit te krijgen 
m.b.v. een zwart-wit monitor en enige eenvoudige wijzigingen 
aan де DAI-print. Voordat ik die ga beschrijwen wil ik nog 
graag in het kort mijn niet-succesvolle pogingen verwoorden: 
-К.Т.У. gebruiken als monitor. Ik had tot mijn beschikking 
een Blaupunkt met FM 121 chassis. Op het schema vond ik het 
IC TDA 3300. Deze heeft extra RGB-aansluitingen (реп 24, 25, 
26), met pen 23 als vermoedelijke schakelaar. 
Tot op heden heb ik echter niemand kunnen vinden die me op 
dit punt verder kan helpen (ik ben geen electronicus); ik ben 
er echter bijna zeker van dat via dit IC een eenvoudige RGB- 
aansluiting te realiseren moet zijn. | 
In dit verband denk ik dat er vele computerhobbyisten zijn die 
hun K.T.V. van een monitor aansluiting willen voorzien: een gat 
in de markt dus. Wie zich erin wil werpen kan ik in ieder geval 
helpen aan het FM 121 schema... 
-DAI-video kaart verbeteren. | 
Als voorbeeld hiervoor gebruikte ik het verhaal van Anton 
Doornenbal (DAInamic maart/juni 1982). Als eerste werd de 
ZNA 134 aansluiting gewijzigd (interliniering). Dat gaf een 
kleine verbetering. | 
Vervolgens de хаКеп die verband houden met bandbreedte аап- 
gepakt (kleur en helderheid). Het bleek dat kleur- en helder- 
heidsbandbreedte niet afzonderlijk konden worden gewijzigd. 
Hoewei ik me bij Anton persoonlijk heb kunnen overtuigen van 
de prima beeldkwaliteit van zijn installatie, ben ik van 
verbetering in mijn eigen geval niet zo zeker. De twijfel is 
ook weer niet zo groot dat ik de zaak weer in de oorspronke- 
lijke toestand terugbreng... 
-Gebruik zwart-wit monitor. Een demonstratie bij een handelaar, 
waarbij het signaal afgetakt werd van de modulator leverde niet 
het monitor beeld zoals ik dat kende van andere computers. 
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Over het beeld liep een diagonaal patroon van lijnen, welke 

door contrastvehoging enigszins te onderdrukken waren, 

Hoewel men probeerde de indruk te wekken dat dit ècht normaal 

en ik een beetje abnormaal was ging de koop dus niet door... 
Toch kocht ik later tweedehands zo n kubus uit Hong-Kong; voor 
honderd gulden: dat kùn je niet weigeren! 

Teneinde het geheel goed te laten samenwerken ging ik te rade 
bij Anton Doornenbal. De hierna weergegeven zwart-wit monitoraan- 
sluitingen komen dan ook van zijn hand. Beide werken ze perfect. 
Hoewel tevens de eerder genoemde wijzigingen interliniering/ 
helderheid/kleur zijn doorgevoerd zijn die toch van onderge- 
schikt belang. 

Het lopende diagonaallijnenpatroon bleek te worden veroorzaakt 
door een kleurpuls welke de kleurenontvanger doet omschakelen 

op kleurenweergave. Dit signaal is bij een zwart-wit monitor 
uiteraard overbodig, ja blijkt zelfs uitermate storend te werken. 


ZWART-WIT MONITOR AANSLUITINGEN 


Onderstaande figuur toont de PAL-videokaart met enkele van de 
belangrijkste componenten. Ik hoop dat ook de minder ervaren 
knutselaars hiermee uit de voeten kunnen. 


Modulator © Miker 
(huis = GND) | Plug 





Riz 820 м. ( grijs/rood/bruin) 
R224k^5 ( bruin/ groen [ rood} 


Rasika (bruin/zwart | rood) 


84 = 2 КТ (rood моек | rood) 
Tris 2N 7704 
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1-SUPERSIMPEL-aansluiting 


Installeer de monitorplug op de (gearceerd) aangegeven plaats. 
Verbind het modulatorhuis (=GND) met de buiten kant van de 
plug. De binnenkant van de plug wordt verbonden met het punt 
"VIDEOsignal". Dit is de 'normale! monitoraansluiting. 

De gewraakte kleurpuls is gesitueerd rond het kristal 4,4336 
Mhz. De puls wordt effectief gesmoord door dit kristal ееп- 
voudigweg kort te sluiten, Maak . dé bedrading absoluut niet 
langer dan nodig is, daar het kristal anders zou kunnen worden 
beschadigd! 

In de figuur is de kortsluiting uitschakelbaar gemaakt d.m.v. 
een lampdrukknopschakelaartje (Sw). Via een gaatje in het deksel 
van de DAI kan deze m.b.v. een potlood o.i.d. bediend worden. 
K.T.V. en zw-monitor mogen ook samen gebruikt worden. Echter 
met de schakelaar geopend is de kleurpuls aanwezig, en dus 

de monitor weergave niet optimaal; met gesloten schakelaar 
verdwijnt de kleurpuls en levert de K.T.V. slechts zwart- 

wit beelden. Dit is dus een nadeel. 

De volgende oplossing laat volledig onafhankelijk gebruik van 
K.T.V. en zw-monitor toe. 


2-SUPERDELUX-aansluiting 


T2 
SEN 55 
of: b 

2N2219 © : 


RS = 4¥ л. (дес лог мам) 
Rb 21504. Cbruin/groenl bruin) 





Hier blijft het kristal ongemoeid. De monitor plug wordt nu 
m.b.v. een stukje afgeschermde kabel verbonden met een 
transistortrapje. Deze transistor met de twee weerstanden 
werden aan де soldeerzijde ongeveer onder Tr. 1 geplaatst. 
De nieuwe transistor is een BFY 55; een 2N 2219 voldoet ook. 
De mantel van de signaal kabel, naar de monitor plug wordt 
zo dicht mogelijk bij de transistor op een GND-punt gesol 
deerd. We hebben nu een nette afcakking van het nog ‘onbe- 
dorven videosignaal gemaakt en dit op het voor de monitor 
vereiste niveau van 1 Volt gebracht. f 

Een aardige tip voor wie meer wil weten over de werking van 
een dergelijke videokaart: kijk eens in Elektuur nr 231 (jan 
1983). Hierin мога een VideoAudioModulator beschreven, 
waarin de LM1889 is gebruikt. 


Geert Hospers (met dank aan A. Doornenbal) 


Hoffmannlaan 555 | 
5011 WL Tilburg (NL) tel.013-561844 
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CONTINUATION LINES 


SCREEN CONTINUATION LINES 


The DAI monitorprogram enables the use of extended lines on 
the screen. Up to 3 extended lines are possible; each line is 
indented 6 spaces and a continuation "C^" is placed at its beginning. 


Mr. Markus Sigg, Worblingen, Germany, designed the following ML 
routine to manipulate with these extended lines. 

It enables the use of more than 3 extended lines, it cancels the 
continuation "C" and it enables the use of more or less spaces on 
the extended linez, 


IMIT PUSH H 
LXI H,START addr. alternative routine 
SHLD :0065С load КӨТЕ vectoraddr. 
POF H 
RET 
START PUSH H On entry, A contains last char 
FUSH FSW 
СЕТ зор Car.ret? 
JZ READY Then abort 
LDA :0072 Get lsbyte cursorpos. 
LHLD 007A Get lsbyte last pos on line 
СМР L End ot line reached"? 
JNZ READY Abort when not 
CALL : DDSE Else: print car.ret 
SFACE MVI 65.:20 Load Ascii "space" 
MVI H.z:06 Nr. of indented spaces 
GUTE RSTS Output to screen 
DATA :03 
DCR H 
JNZ OUTC Next space when not ready 
READY РОР PSW 
FOP H 
JMP :CóFD Fer farm original RSTS 


The INIT routine must be performed ance at the beginning of the 
program. It replaces the RSTS vector address on #006C/D with 

with the address of the alternative routine. [This can also be done 
under Utility with VS=<STARTI. 


The rest of the routine wili be runned by the DAI monitor program 
every time a RSTS (screen handling) routine is performed. 

If no indent is required, the part *SPACE* can be skipped. 

The number of spaces on the indented lines can be changed by changing 
the contents of the H-register in the 'SPACE'-routine. 

After this routine is performed, the original RSTS routine on 

address #C6FD is performed. 


This alternative routine has no influence on the RS232 output. 


Jan Hoerrigter 
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program identification 


title ° SCREEN TO BUFFER / BUFFER TO SCREEN 
autnor W.Hermans 
purpose To hold an entire picture in buffer,and restore it 


comment actual program is for MODE 3/4, could be adapted 
for other MODES(lines 7/8/9 & 28/29/30) 








УЖЕ УХЕ TREK ЫА 
*SYMBOL TABLES 
een 


CONT DDOD DHT? 0029 
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— — d 
— d 

d + 
pH 





2-D TRANSFORMATIONS 


18 REM 2D TRANSFORMATIONS. 
29 CLEAR 254:MODE o 

50 DIM C0! (5.0,2. 60) t REM С0(1,1)=Хі, CO(Gi,2)-Yi 

51 FÜR I-1 TO S:FOR 2-1 TO 2:READ CO! (1,J):NEXT:NEXT 
52 DATA 1,1,-1,1,-1,-1,1,-1,9,¢ 

66 S!=1.318:REM ....... PES Lu ER iE SCALING 

62 Кік2.82:КАП!-180.Ө/РІ 

63 CS'=COS(R!/RAD!):SN!=SIN(R!/RAD!):REM .. ROTATION 
54 ХТ! =168.©:УТ!=128.0:КЕМ ............TRANSLATION 
109 COLORS 8 8 5 15:MODE &:SF'-(-1bE-2) 

116 FOR N-1 TD 64 

126 REM PLOT f 

122 00'(5.0,1.0)=00' (1.0, 1. 6) :CD! (5.0,2.0)=00! (1.0, 2. 0) 
124 FÜR I-1 TO 4:J=I+1 

126 DRAW СО! (I, 1.0) *XT! ,CO! (1,2. 0) 4YT! CO! (J, 1.0) 4XT! CO! (2,2. 0) 4YT!. GENE 


136 REM ROTATION 

51 FOR І-і TD 4 

152 Х1! =С0! (1,1. 0) 0561401 (1,2. 8) «SN! 

155  Yi!zCD!(I,2.0) *CS!-CD! (I, 1. 9) *SN'! 

134  CD!(I,1.0) -X1' :CD! (1,2. 0) Z YI zNEXT 

1464 КЕМ SCALING 

142 FOR Ізі TO 4:FOR 4-1 ТО 2:00! (1,3) 2CO! (1,2) 4S! : NEXT: NEXT 
158 Si!i=S!+SF!:IF 5:<8.0 THEN SF'-1E-2 

199 NEXT 

999 END 
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DNR 





EURE 





24 





шие 








mt 


A ANE 


врана 
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128 REH 

iie REM 

129 REH 

38 REM SOMEBODY NEEDS ñ FIAT MARK ? 
140 КЕМ 

15e REM 

158 REM ... Gianni Uliana 
1709 КЕМ 

i86 REM 

190 КЕМ 

200 КЕН 


10018 COLORG 14008 & 
19915 МОРЕ 5 
19020 FILL 55,90 299,150 9 FIAT 
10040 DRAW 95,96 111,158 14 
10050 DRAW 97,98 112,152 14 
10868 DRAW 98,90 115,150 14 
10978 DRAW 155,90 172,150 14 
19686 DRAW 158,90 175,150 14 
18090 DRAW 157,98 174,158 14 
16198 DRAW 215,90 251,150 14 
19118 DRAW 216,90 222,150 14 
19128 DRAW 217,96 252,159 14 
12138 FOR 1=46.0 TO 55.0 
10131 DRAW 1,90 1+15,150 @:NEXT 
18148 FOR I-275.0 TO 296.0 
10141 DRAW 1,98 1+15,150 14:NEXT 
19142 REH F 
19156 FOR 1=55.0 TD 46.6 
10151 DRAW 1,105 1+19,148 14:NEXT 
‚ 10152 DRAW 58,149 92,140 14:DRAW 646,139 92.139 1 
10155 DRAW 25,158 91,158 14:DRAW 66,157 91,127 14 
16154 DRAW 65,125 86,125 14:DRAW 85,124 86,124 1 
10155 DRAW 65,125 85,125 14:DRAW 55,122 85,122 1 
18159 REM I 
19160 FOR I-125.9 TO 139.6 
19141 DRAW 1,193 I+10, 140 14:NEXT 
10159 REM A 
10179 FOR 1-195.0 TO 200.0 
18188 DRAW I-25,102 1,140 14:DRAW 1+18,103 1,140 14:NEXT 
19181 FOR I-115.6 TO 119.6 
10182 DRAW 182,1 205,1 14:NEXT 
16189 REM T 
18198 FOR 1=245.0 ТО 250.9 
18191 DRAW 1,162 Із10,140 14:NEXT 
16195 DRAW 249,136 271,125 14 
19196 DRAW 246,137 271,137 14 
10197 DRAW 241,158 272,128 14 
18198 DRAW 241,139 272,129 14 
19199 DRAW 241,140 272,148 14 
‚ 19200 WAIT TIME 1@6:50TO 16020 
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ОМ ERROR БОТО 


SPL V1.1 FAGE i 


0000 TEITL "UN ERROR GOTO v2.07 
0000 То activate: 
0000 SUT RETURN > 
0000 3298 СВЕрО-200 <CURSOR LEFT 
0000 sE 








0000 3 УРОЕЕ ва, ТМЕМЈМЕЕЕ TAND WEE: РОКЕ #7. LINENUMBER SHR 8 
0000 
обоо 
орою 
0000 
OOO š 
обоо 
0000 
бобо 
OOOO 
OOO 
бое 
0000 
OOOO 
0000 
обод 
EDENO 





Wher an error осе 
routine which or 


"e а jump is performed to tf 
via ОЮА, This routine 





eprorprint— 
follows: 





ADD 3 
DAS DH CALL. on 


Stack 





STACKF TOS ROLIT TNE 
SPH ТАР OH Runtime errar 






єн 
ALL. 
PUSH 
PUSH 
KATE 
DE OCH ЕЈ АН DRE 1H qet CURX,CURY 

HOP 

FISH H SP OH HL. Change to ROMbank 
LID SCH 2 Oe ООН 

ECHL. 

PUSH РЕМ SF Ed PSW Dn error routine 


оран Print СЕ befare 
DE arroarmsg is 
HL. printed, 





0000 
ороо 
OOOO 
оссе 
OOO 
0000 
OOO Д aa еее... 
OOO = OOOG ERRL IN 
обод š 

ооо 

oxoo FS Save РЕМ 

09501 ӘНІ. may be corrupted because 
0301 H rcantents is already on stack. 
0501 200600 LHL D ЕНЕШІМ Ehet if line to goto 

0504 FC HOM A, H Lon ект 

ва ORA |. 

JT ОНТ zeit if © 





after RST © 





Se Free bytes 


AWOQMH 














LXI H OO OF о to st 
DAD SF „ада 
OF iC 


асЕђаве 

keper term to find 
[ er 

caller is ODASSH 








за са 
Gg 

m 

БЕН 

HH 

~ 

í 

-- 

= 





iF mat continu RST D 





МОМ A, M 

СЕТ OOOH 

JNZ QUT Sif caller is NOT ODASOH 
INX H sCheck if runtime err ar 
MOV VM 





40H 
ONE RFE 
PM 





OC GF DH 








AAO GOO CME RR LLY) EREL TIN "Get linenumber to goto 
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SFL. 








V1.1 PAGE 2 


en 


CDF SCA 
D24Do03 


oe 


44 
4D 
210001 


15 








озар 
0540 
05425 
0246 
0347 
O46 
озар 
озар 
OREO 
[Ж] 
O5 
0558 
Ox 


оен» 
DALO 
ORDO 


DA ZO 





FE 
SLOOFS 
C392CB8 


210000 UNDE 


0600 


EOS 


CSF GD? 


EL 


САО x 


OESO 


хо 





ШОР 


ZE 


DN ERROR БОТО 


OM ERROR GOTO V2.0 


зіп HL 
CALL. OLAF SH find this line in BASIC 
JNE UNDEF E. $text buffer, if undefined 
line run error 
МОМ ВАН SBC start line in BASIC 
MOV б, text buffer 
LXI H 1O00H start of basic pointers 
MUI o 15H pin HL, clear evt.GOSUB and 
ММІ M OH SFOR NEXT levels 
INX H 
DCH А 
JNZ ШОСЕ slaap till ready 
DI 
STA ізін Ор to screen 
зта 40H Force КОМбапк © 
STA OFDoOGH 
EI 
LXI SP OF POH reset stack pointer continu 
JME OCR SH with BASIC execution 





FL LXI H OH $if the lineno in ERRLIN does 
SHLD ERRL TN snot exist errors are enabled. 
мит А ан code far UNDEFINED LINENUMBER 
УМЕР орек SH sprint this message, Back to 

RASIO monitor, 
END 


7C BS CA 21 
ра c2 ox ЭЕ 7E 

05 00 CD Fé Cà DZ At 

оо 23 3D D2 35 ОШ 

FB 51 ОО 

: F5 09 00 


FE 5x 


DN 


са 28 





Се 28 
із 
05 
04 





оо OO 
OO OF 





REM ON ERROR GOTO РЕМЏУМ, P, LOOTJE 

REM ali levels of FOR NEXT/GOSLB will be cleared р 
MODE Os PRINT CHR C12) 

PORE 5,12: РОКЕ 7,0: REM ON ERROR GOTO 10 


Az Ls PRINT An IE A: 
DOT A,B С: КЕМ not 
POKE 4, O: FOEE 7, о: 


D THEN БО: REM 10 times ON ERROR 
oc cible іп MODE 0 
М ON ERROR off 









GOTO 40:БЕМ now an errorcmessage will be printed 
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Oi 









= 





oOo? 


соза 


DG4OD 
cra dD 
A 





2418 
Dag DAL 
AT Qi 

LE 
өзін 
DALE 
Q41D 
OSZO 


0421 





E 
* 





DEX H 
МЕХТЬМ — DAD 
ЈАМЕ LACT 
















* 
DATA THX 


PIEP 








O40 
241 
офа 
QA 
сыра 
ода 
O6 
од? 
оза O4 
сыру od 


LINE HHEN GONE 





NC 


НОТ 





CHANGE TO 








FOF 





ыз t ` 


ARK OR KOK KOK OR CK RR RR ACA AOR ЖЖ 
жау нео! Io 
RERA ROK 





CHANGE 
LACHT 








1 REM GRAFTEXT, MAAKT GEBRUIK VAN EEN FGT-TABEL. 

2 COLORG 8 © e @:MODE SA:COLORG 8 @ @ 2 

5 GTCS$="GRAF TEXT": С=0: Х9=60; Уд=д:Н'=5.0: 1! =3. 0: 5! =0. 0: К!'=45.0: 5! =45. 0: 
TH=1:TW=6:G0SUB 40000 

6 WAIT TIME 1609:MODE SA ***** FIRST LOAD ЕСТ w***** 

9 GTCS$="ABCD. " 

19 Х0=5: YO=1502W!=1.0:6!'=6. O:R'=@.6:S5'=0. 0: TH=@: TW-O 

il FOR H!-1.0 TO 8.0:5050В 40000: NEXT 

12 X9=45:Y0=1355:H!=1.@:FÜR W'=1.@ ТО 3.@:GOSUB 40900: NEXT 

15 хд=20: Уд=110:Н!=2.0:И!=1.0: РОК 5'=8.8 ТО 90.0 STEP 15.@:GOSUB 40000:N 


ЕХТ 
14 хе=20: Y0-90: Н!=1.0: 9! =1.0:5' =0. 8: ЕПК 6'=0.@ ТО 8.0 STEP 2.@:GOSUB 400 
98:МЕХТ 


15 Х=25: XOüzX: YO-60:H!-0.6:W!-1.06:5!-0.0:G6'-0. 0: BTCS$-"B" 

15 FOR R!=0.0 TO 360.@ STEP 15.0: 50508 40000: X=X+12: XOózX: YO-A50:H'—-H' +0. 1 
:МЕХТ 

17 X@=80@:VYƏ=2:H!=2/.@9:W!i=2/.0:S!=Z0.0@:R!i=0@.0:B!=0._@:BTUSt="E";GUDSUB 40000 
18 TH=i:TW=@:GOSUB 49000: TH-O: TN-1: GDGUB 40000 

19 TH=4: TW=@:GOSUB 48606: ТН=0: TW=4:GOSUB 40000 

26 Н'=4.0: W! =4. 9: TH-5: TN-5: GOSUB 40000: TH=7:TW=46:GOSUB 40000 

99 END 


999 END 
40000 REM GRAF TEXT GRAF TEXT 
49002 RAD!-57.2958:HS!-H!:SW'-W':SB!-6! /8W! 

40004 HX!-COS (В! /RAD! ) НУ! -SIN(R! /RAD!) 

40008 VX!--HY «HX *SIN(G! /RAD! ) VY! -HX 1 +НУ SIN(G! /КАр!) 

49010 DHX'-HX' «SW! : ОНУ! -HY !#SW! z DVX !=VX !#HS ! : DVY !- VY ! «H8! 

40014 DSX!-DHX'*(8. 0+56!) : DSY! -DHY ! s (8. 05561) 

40100 FOR М-д TO LEN(GTCS$)~1:GTC=ASC (MID$(GTCS$,M, 1) ) t GTI-8580 
49129 БТТІ=РЕЕК (GTI) :GTT2=PEEK (GTI+1}:IF GTT1=#5A AND БТТ2=#ҒҒ GOTO 40146 
49122 IF GITI<SGTC THEN GTI=GTI+2*GTT2+2:GOTO 40120 

40150 GTI=GTI+2 

40151 FOR N-BTI TO 8ТІ%2ж(6ТТ2-1) STEP 2 

40132 BTX-(PEEK(N) IAND #F@) SHR 4:GTY-PEEK(N) ТАМО &F 

40133 GTXI-XO*GTYsDVX ! +GTX*DHX ! : GTY1=YO+GTY*DVY ! +GTX*DHY! 

4013 ша (PEEK(N+1) TAND #F@) SHR 4:GTY=PEEK(N+1) ТАМО ЯҒ 

40155 BTX2=X9+BTY*DVX!+BSTX#DHX:!:BTY2=V0+BTY*DVY!+BTX*DHY' 

49137 FOR. Ti=@ TO TW:FOR T2=@ TO TH 

40138 DRAW BTX1*T1,GTY1*T2 BTX24T1,8TY24T2 C:NEXT:NEXT 

40159 NEXT: XƏ=X2+DSX ! «TW: YO=YO+DSY! 

40146 NEXT 

49159 RETURN 
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RANDOM-ACCESS 


Tessenderlo 27 april, 1985 


Dear Dai-Diskunit-owners, 


As owner of a dual Disk-drive of the firm Dai I noticed that 
to complete the Disk Operating System there was need for a 
Random Acces posibility. 


Thanks to the artikel in Newsletter i4 I developed a method 
that is close to the original Random acces feature. 

When we read a sector from disk, this sector will occupy 128 
bytes in memory adressed by the HL register.When the content 
of the HL register is а VARPTR from a string with a length 

of 128 the information from the sector is stored in this 
string.We only have to set the length of the string,define 
which track and sector we need and call a routine.Upon return 
the string contains the sectors information. The same applys 
for writing a sector to disk.The only important thing 

is the length of the string.It always must be 128 bytes.When 
not you can destroy parts of other variables. 

By now you will ask: How do I now which track and sector I 
have ta poke ? To get this information we look in the directory. 
Whe therefore use the ASCII-FILE method used in the Auto-Menu 
on омег system disk.Here аге the results: 





Example: FILENAMEBAS-———— МНННЕ 
111111112222355245577 


B Bytes for the filename. 

5, Bytes for the extension. 

5 Bytes not used. 

1 byte for the attribute 

8 bit number for first track of file. 
B bit number for first sector of file. 
15 bit number for length of file 


аа EE 





With the statement АЗС () we retrieve the desired information. 
Multiply the track with #12 and add the sectors to it. Then 
assign the value to the variable OFFSET.With the variable P 
you can choose which sector from the file you want to acces. 
Caution: P-0 will return the first sector. RUN 900 reads š 
sector into R$, RUN 950 writes R$ to disk.R$ must always be 
14 you want to use drive :8 change line 7 and 22 into: 

MVI A, 236. 


Good luck ! 
Couwberghs Frans 
Boekdonkstraat 13 


3980 Tesenderlo 
013/666340 
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RANDOM-ACCESS 


1019 PRINT " PAGE ài RANDOM GET FUT" 

1879 PRINT 

1988 PRINT " 902 ORG ср" 
1898 PRINT " 085 1900 FS PUSH FSW" 
1100 PRINT " oeh 19CE CS PUSH B" 
1116 PRINT " 445 19CF DS PUSH D" 
1120 PRINT " 064 1909 ЕЗ PUSH H” 
113@ PRINT " 9007 1901 ЗЕЗІ MVI A.:31" 
1146 PRINT " 008 1905 8606 HV 5,6" 
1156 PRINT " 80? 1905 QEB MVI C, 9" 
1160 PRINT " eio 1907 210000 LXI H,@" 
1170 PRINT " 611 17DA 25 INX H" 
1186 PRINT " 912 19DB CDIC@A CALL :А1С" 
1198 PRINT " 913 19DE El РОР H" 
1200 PRINT " 914 19DF Di POP р" 
1219 PRINT " 915 ISEB C1 РОР В" 
1220 PRINT " 016 19E1 Fi РОР PSH" 
1250 PRINT " 017 19E2 C? RET" 

1248 PRINT " 918 19E3 FS PUSH  PSW" 
250 PRINT " 919 19E4 CS FUSH B" 
1250 PRINT " ога 19Е5 DS FUSH D" 
1278 PRINT * өзі 19E5 ЕЗ PUSH H" 
1286 PRINT " 022 19E7 ЗЕЗ MVI A,:31" 
1298 PRINT " 323 19Е9 0400 MVI В," 
1588 PRINT " 924 19ЕВ GEO MVI С, 9" 
1316 PRINT " 925 19ED 21606000 LXI H, 9" 
1520 PRINT " 26 19F9 2% INX H" 
1559 PRINT " 927 19F1 CD3296 CALL :8352" 
1340 PRINT " 828 19F4 El РОР н" 
1359 PRINT " 829 19Ғ5 Di РОР Di 
1580 PRINT " 938 19F46 Сі РОР B" 

370 PRINT " 951 19F7 Fi POP PSW" 
1589 PRINT " 952 19ҒВ С? КЕТ" 

1590 PRINT " 855 19Ғ? END" 

1499 PRINT 

1418 PRINT 


1420 PRINT "906 REM GET А SECTOR FROM DISK" 

14:0 PRINT "918 TRACK=(P+OFFSET) /#12:SECTOR=(P+OFFSET) MOD #12" 

1446 PRINT "920 IF SECTOR=@ THEN SECTOR=18: TRACK=TRACK-1" 

1450 PRINT "930 POKE #19D4, TRACK: POKE #1906, SECTOR: РОКЕ #19D9, PEEK (VARPT 
R(R$))" 

1468 PRINT "950 REM PUT ñ SECTOR ON DISK" 

1478 PRINT "950 TRACK=(P+OF FSET} /#12:SECTOR=(P+OFFSET) MOD #12" 

1480 PRINT "97@ POKE #19ЕА, ТНАСК: РОКЕ #19EC,SECTOR:POKE #19EE, PEEK (VARPT 
RIR$))" 

1496 PRINT "980 POKE HSi9EF.PEEE(VARPTR(RS) H1): CALLM. #1922: RETURN" 
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NEGATIEVE CURSOR 


196 REM aar DE NEGATIEVE CURSOR Жы 
118 REM #44 GESCHREVEN DOOR : DE BONT CORNEEL * 
128 REM жұз 14 — Я — 1985 +++ 
ie REM жекке ааа ыы 
140 GOTO 496 
222 REM ##% BUITEN-MARGE SUBROUTINE 
218 1С=НВЕЕЕ- {{25-ҮР) #486) :POEE IC, 2084 7P 
215 IF ҮР>Ө THEN POKE IC-#84, 208 
228 FOR IX=@ TD LEN(6$)-1:TS=MIDS (5$, IX, 12 :GX-ASL CT) 
238 IP-HBFE7-(02Z-YP)HEBA) - (ХРЖ2):РОКЕ ІР,БХ 
240 ХР=ХР+1:МЕХТ 
256 RETURN 
288 REM xxx GETC-ROUTINE 
319 CURSOR 6,6:PRINT SPC {58} § :FOEE 875.95 
A28 CURSOR 16,8:PRINT "DRUK OF EEN TOETS DM TE VERVOLGEN"; 
356 CU=INT(15S*RND(1)):IF CC-8 THEN 530 
348 POKE #B364,CC+268:SOUND 1 9 15 9 FREG((CC#50) +56) 
359 WAIT TIME 3:SQUND OFF :G=GETC:G=GETC:65=GETC 
i50 G=GETC:IF G=@ THEN WAIT TIME 3:1-I-1:1F 1420 THEN 360 
3780 T=@:1F G=@ THEN 558 
388 РОКЕ #75, 52: RETURN 
лао REM ### TITEL 
418 MODE @:COLORT 8 6 8 B:FRINT CHR#(12)}5:FOKE #75, 32 
429 CURSOR 55,7:ZP=-1:FOR I-e TO 23:XP=-3+1:YP=23-1 
450 G$=" DEMONSTRATIE VAN NEGATIEVE CURSOR" 
440 ТР= РА] IF ZP-16 THEN ZF=9 
456 IF ІР-В THEN ZP=ZP+1 
456 GOSUE 209: NEXT: PRINT 
476 GOSUB 266: RESTORE 
gae PRINT CHR$(G2)::C0LORT 8 9 8 B:CURSOR 55,7 
516 FOR YP=23 ТО 1 STEP -1:READ G$:7P-8 
528 XP=INT ЗАМОР ЛОЗЕ: IF RND(10)25 THEN XPF=XP*(-1) 
336 GOSUB 240: NEXT 
54% GOSUE 524:60T0 498 
566 БЕН xx INFO 
515 рата "DEMONSTRATIE VAN EEN NEGATIEVE CURSOR" 
528 DATA "жака ЗЕТЕ НКУ" 
аза рата "DIT PROGRAMMA DEMONSTREERT U EEN SUB-" 
648 DATA "ROUTINE,WAARIN EEN NEGATIEVE CURSOR " 
856 DATA "WORDT GEBRUIKT.EEN OPGEGEVEN STRING " 
568 рата “WORDT ОР ELKE GEWENSTE PLAATS ОР НЕТ " 
278 DATA "SCHERM WEGGESCHREVEN,NET ALS BIJ HET " 
588 DATA "GEBRUIK VAN EEN CURSOR-STATEMENT 1! " 
аза рата "НЕТ GROTE VERSCHIL IS рат МЕМ HIER bi 
7668 DATA “CURSOR X-WAARDEN TOT -3 KAN OPGEVEN. " 
712 рата "OOK BESTAAT DE MOGELIJK DE REGELS TE " 
28 рата "“EKLEUREN. BIT КАМ MEN KLAARSPELEN DOOR " 
738 DATA "BIJ HET AANROEPEN DER SUBROUTINE DE " 
748 DATA "VARIABELE 7267 EEN WAARDE TUSSEN 8 н 
798 ата "ЕМ 15 MEE TE GEVEN. (@=ZWART} м 
769 DATA "РЕЗЕ SUBROUTINE KAN ALS VOLGT AANGE- " 
778 DATA "SPRUEEN WORDEN. MEN BEPAALT EERST: Б 
722 DATA "XG : (X-AS) EEN GETAL TUSSEN — EN 58" 
7938 рата "YG : (Ү-Аб) EEN GETAL TUSSEN 6 EN 23 " 
ага DATA "ZG : (KLEUR) EEN GETAL TUSSEN 8 ЕМ 15" 
819 рата "GS : DE STRING (TOT МАХ &2 LETTERS) " 
82e рата “WAARNA MEN EEN "GOSUB 266° UITVOERT " 
850 рата "%ХБ--3:Ұб-9:25-7:Б%-” DEMO’ :БОЗИВ 200)" 
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